home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / mags-docs / libguide / mydevice.rexx < prev    next >
OS/2 REXX Batch file  |  1999-01-01  |  345b  |  15 lines
  1. /* Library Check on a selected volume
  2.    V2.0- 10/03/98 - © Age*/
  3.  
  4. if ~show('L',"rexxreqtools.library") then addlib('rexxreqtools.library',0,-30,0)
  5.  
  6. Volume = rtfilerequest(,,"Pick a Volume",,"rtfi_volumerequest=vreqf_noassigns")
  7. IF Volume = "" then do
  8.    address command '"SetEnv" dev='0
  9.    exit
  10. END
  11.  
  12. address command '"SetEnv" dev='Volume
  13.  
  14. Exit
  15.